home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 29 / 029.d81 / card control (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  268 lines
  1. 10 gosub60100:print"[147][142]":poke650,128
  2. 100 poke53280,0:poke53281,0:poke646,5
  3. 110 printchr$(147):forx=1to10:print:next
  4. 150 n=100:dimd$(n),b$(n),e$(n),f$(n),l$(n),g$(40):bk$="[175]"
  5. 152 c$(1)="d":c$(2)="c":c$(3)="r":c$(4)="q"
  6. 155 print"[147][158]          credit card control
  7. 156 [153]"print          usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr
  8. 160 forx=1to6:print:next
  9. 170 printtab(14)"[158]*** menu ***":print
  10. 180 printtab(5)"[154]d - [159]display credit card data
  11. 190 [153][163]5)"contc - opencreate/add credit card data
  12. 200 printtab(5)"[154]r - [159]report lost or damaged cards
  13. 210 [153][163]5)"contq - openquit
  14. 220 print"[154]"tab(11)"enter selection: [157][153]";bk$;"[158]";
  15. 225 mo=16:nc=1:gosub60500
  16. 235 forb=1to4:ifc$(b)=a$thena=b:goto250
  17. 236 next
  18. 237 goto220
  19. 250 onagoto280,500,690,60000
  20. 260 :
  21. 270 :
  22. 280 print"[147][158]        display credit card data
  23. 281 [153]"print        usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr
  24. 285 gosub1240:ifabthen155
  25. 286 gosub1400
  26. 287 gosub1350:iferthen155
  27. 290 print"credit cards on file to date:":print
  28. 300 print"name[146]"tab(16)"acct. #[146]"tab(31)"exp date[146]
  29. 310 [153]"----"[163]16)"-------"[163]30)"--------
  30. 320 k1=0
  31. 330 forx=1ton
  32. 340 input#1,d$(x)
  33. 350 ifd$(x)="end"then440
  34. 360 ifk1<17then400
  35. 370 print:printtab(8)"press return[146] to continue":print
  36. 380 geta$:ifa$<>chr$(13)then380
  37. 390 k1=0
  38. 400 input#1,b$(x),e$(x),f$(x),l$(x)
  39. 410 printd$(x);tab(10);b$(x);tab(33);e$(x)
  40. 420 k1=k1+1
  41. 430 nextx
  42. 440 close1:print:print"end of file.":print:printtab(12)"press m for menu
  43. 450 [161]a$:[139]a$[178]""[167]450
  44. 460 [139]a$[179][177]"m"[167]450
  45. 470 [156]:[137]150
  46. 480 :
  47. 490 :
  48. 500 [153]"loadsys      create/add credit card data
  49. 501 print"[153]      [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
  50. 505 x[178]1
  51. 510 [141]1240:[141]1260:[141]1440:[153][199](147)
  52. 520 [129]x[178]x[164]n
  53. 530 [153]"load          listtype endlist to exit.
  54. 540 print"entry # [153]";x:print
  55. 545 print"            [153][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][145][145]"
  56. 550 print"[129]name of card:[158]";bk$;
  57. 555 mo=190:nc=30:gosub60500:d$(x)=a$
  58. 560 ifd$(x)="end"then670
  59. 565 print"          [153][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][145][145]"
  60. 570 print"[129]account #:[158]";bk$;
  61. 575 mo=2:nc=30:gosub60500:b$(x)=a$
  62. 577 print"                            [153][183][183][183][183][183][145][145]
  63. 580 [153]"forexpiration date (ex: 01/84):sys";bk$;
  64. 585 mo[178]130:nc[178]5:[141]60500:e$(x)[178]a$
  65. 587 [153]" printusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrononon
  66. 590 print"[129]company p.o. or street address"
  67. 595 print":[158]";bk$;:nc=38:mo=190:gosub60500:f$(x)=a$
  68. 597 print" [153][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][145][145][145]
  69. 600 [153]"forcity state & zip (sorry, no commas.)":[153]":sys";bk$;
  70. 605 mo[178]190:nc[178]38:[141]60500:l$(x)[178]a$
  71. 620 [153]:[153]"is data correct (y/n)
  72. 630 getz$:ifz$=""then630
  73. 640 ifz$="y"then660
  74. 650 ifz$="n"thenprint"[145]    re-enter data[146]    ":fora=1to2000:next:goto530
  75. 660 print:print:nextx
  76. 670 close2:print"[147]";:goto1450
  77. 680 :
  78. 690 printchr$(147):gosub1440:print
  79. 700 print"[129]your name:[158]";bk$;:mo=190:nc=20:gosub60500:gosub 60600:yn$=a$
  80. 710 print"[129]street or post office:[158]";bk$;:gosub60500:gosub 60600:  ma$=a$
  81. 720 print"[129]city:[158]";bk$;:gosub60500:gosub 60600:ci$=a$
  82. 730 print"[129]state & zip code:[158]";bk$;:gosub60500:gosub 60600:sz$=a$
  83. 740 print"[129]today's date:[158]";bk$;:gosub60500:td$=a$
  84. 750 close2
  85. 760 printchr$(147):print
  86. 770 gosub1250:gosub1400:gosub1710:gosub1350:iferthen155
  87. 780 forx=1ton
  88. 790 input#1,d$(x)
  89. 800 ifd$(x)="end"then900
  90. 810 input#1,b$(x),e$(x),f$(x),l$(x)
  91. 820 print"[155]do you want a report for: ";d$(x):print"press: y [155]or n"
  92. 830 getq1$:ifq1$=""then830
  93. 840 ifq1$="n"then870
  94. 845 ifq1$="y"then850
  95. 846 goto830
  96. 850 print"[155]is card lost or destroyed:":print"press: l [155]or d
  97. 855 [161]w$:[139]w$[178]""[167]855
  98. 856 [139]w$[178]"l"[167]w$[178]"lost":[137]860
  99. 857 [139]w$[178]"d"[167]w$[178]"destroyed":[137]860
  100. 858 [137]855
  101. 860 [141]920
  102. 870 [139]st[178]0[167][130]x
  103. 880 [139]st[178]64[167]900
  104. 890 [139]st[179][177]0[175]st[179][177]64[167][153]"error...";st:[160]1:[128]
  105. 900 [160]1:[153]"end of file":[129]t[178]1[164]1000:[130]:[156]:[137]150
  106. 910 :
  107. 920 :
  108. 930 sn$[178]"(NULL)incerely,"
  109. 940 [159]4,4,7
  110. 950 [152]4
  111. 960 [152]4,""[163]80[171][195](ma$));ma$
  112. 970 [152]4,""[163]79[171][195](ci$)[171][195](sz$));ci$;" ";sz$
  113. 980 [152]4,""[163]80[171][195](td$));td$
  114. 990 a$[178]d$(x):[141]60600:[152]4,a$
  115. 1000 a$[178]f$(x):[141]60600:[152]4,a$
  116. 1010 a$[178]l$(x):[141]60600:[152]4,a$
  117. 1020 [152]4
  118. 1030 [152]4,"(NULL)val: atnccount # ";b$(x)
  119. 1040 [152]4
  120. 1050 [152]4,"str$ear (NULL)ir:
  121. 1060 print#4
  122. 1070 print#4,""tab(5)"[201]n regard to the above account,";
  123. 1075 print#4," [201] am reporting that my card was
  124. 1080 [152]4
  125. 1090 [152]4,w$;" on or about the above date.
  126. 1100 print#4:print#4
  127. 1110 print#4,""tab(5)"[208]lease take any necessary action";
  128. 1115 print#4," to insure that there is no
  129. 1120 [152]4
  130. 1130 [152]4,"unauthorized use of this card,";
  131. 1135 [152]4," and please issue a replacement as
  132. 1140 print#4
  133. 1150 print#4,"soon as possible.
  134. 1160 [152]4:[152]4
  135. 1170 [152]4,""[163]5)"(NULL)lease contact me if";
  136. 1175 [152]4," additional information is needed.
  137. 1180 forx=1to4:print#4:next
  138. 1190 print#4,""tab(70-len(sn$));sn$
  139. 1200 forx=1to4:print#4:next
  140. 1210 print#4,""tab(75-len(yn$));yn$
  141. 1220 print#4:close4
  142. 1230 return
  143. 1240 ab=.
  144. 1245 print"                  [153][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][145][145]
  145. 1250 [153]"opencardholder's name:sys";bk$;:mo[178]190:nc[178]16:[141]60500:fi$[178]a$
  146. 1255 [139]a$[178]""[167]ab[178]1
  147. 1256 [142]
  148. 1260 [153]:[153]"cont(acont)dd to existing file
  149. 1265 print"[154](n[154])ew file":print"[154](r[154])eturn to menu
  150. 1270 [161]z$:[139]z$[178]""[167]1270
  151. 1280 [139]z$[178]"n"[167][142]
  152. 1290 [139]z$[178]"a"[167]1620
  153. 1300 [139]z$[178]"r"[167][156]:[137]150
  154. 1310 [139]z$[179][177]"n"[175]z$[179][177]"a"[175]z$[179][177]"r"[167]1270
  155. 1340 [142]
  156. 1350 er[178].:[141]1730
  157. 1360 [161]z$:[139]z$[178]""[167]1360
  158. 1361 [139]z$[178]"t"[167]1370
  159. 1362 [159]3,8,3,""[170]fi$[170]"":[160]3:[159]15,8,15:[132]15,a$,b$:[160]15
  160. 1363 er[178].:[139]a$[178]"00"[167]1380
  161. 1364 [153]"defdisk error:";a$,b$
  162. 1365 [129]a[178]1[164]2000:[130]
  163. 1366 er[178]1:[142]
  164. 1370 [139]z$[178]"t"[167][159]1,1,0,fi$:[142]
  165. 1380 [139]z$[178]"d"[167][159]1,8,8,fi$[170]",s,r":[142]
  166. 1390 [139]z$[179][177]"t"[175]z$[179][177]"d"[167]1360
  167. 1400 [153]:[153]"open  insert source file and press return  wait
  168. 1410 getz$
  169. 1420 ifz$<>chr$(13)then1410
  170. 1430 return
  171. 1440 open2,0:return
  172. 1450 :
  173. 1460 gosub1400:gosub1560
  174. 1470 forx=1ton
  175. 1480 print#1,d$(x):print#1,b$(x):print#1,e$(x):print#1,f$(x):print#1,l$(x)
  176. 1490 ifd$(x)="end"then1510
  177. 1500 nextx
  178. 1510 close1
  179. 1515 open15,8,15:input#15,a$,b$:close15:print"[154]==>[159]";a$,b$
  180. 1520 print:print"do you want a backup copy (y/n)?
  181. 1530 [161]z$:[139]z$[178]""[167]1530
  182. 1540 [139][200](z$,1)[178]"y"[167]1460
  183. 1550 [156]:[137]150
  184. 1560 [141]1730
  185. 1565 ad$[178]"0":[139]ad[167]ad[178].:ad$[178]"@0"
  186. 1570 [161]z$:[139]z$[178]""[167]1570
  187. 1580 [139]z$[178]"t"[167][159]1,1,1,fi$:[142]
  188. 1590 [139]z$[178]"d"[167][159]1,8,8,[170]ad$[170]":"[170]fi$[170]",s,w":[142]
  189. 1600 [139]z$[179][177]"t"[175]z$[179][177]"d"[167]1570
  190. 1610 :
  191. 1620 :
  192. 1630 [141]1400:[141]1350
  193. 1635 [139]er[167]155
  194. 1640 [153][199](147)
  195. 1650 [129]x[178]1[164]n
  196. 1660 [132]1,d$(x),b$(x),e$(x),f$(x),l$(x)
  197. 1670 [139]d$(x)[178]"end"[175]st[178]64[167]1700
  198. 1680 [139]st[178]0[167][130]x
  199. 1690 [139]st[179][177]0[175]st[179][177]64[167][153]"error..."st:[160]1:[128]
  200. 1700 [160]1:ad[178]1:[142]
  201. 1710 [153]"   turn on printer and pres